home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / tests.self < prev    next >
Encoding:
Text File  |  1993-05-23  |  578 b   |  40 lines
  1. " simple test cases "
  2. "
  3. *
  4. * These are tests for the polynomial representations. 
  5. * 
  6. * tests.self,v 1.3 1993/05/23 23:16:47 richards Exp
  7. *
  8. * tests.self,v
  9. * Revision 1.3  1993/05/23  23:16:47  richards
  10. * Now test4.self
  11. *
  12. # Revision 1.2  1992/08/19  02:00:39  richards
  13. # Added a description.
  14. #
  15. # Revision 1.1  1992/07/05  22:11:03  richards
  16. # Initial revision
  17. #
  18. *
  19. *
  20. *
  21. "
  22.  
  23. _AddSlotsIfAbsent: (| foo. bar. baz. hunk. junk. |)
  24.  
  25. foo: aa scalar create: 'A'
  26. bar: aa scalar create: 'B'
  27. junk: foo + bar
  28. junk printLine          " outputs A+B "
  29.  
  30.  
  31. hunk: foo * bar + junk
  32. hunk printLine
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.